home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 167 / Tiger_Disk_167_19xx_Tiger-Crew-Disk_de_Side_C.d64 / ende - 069 - (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  431b  |  10 lines
  1. 10 poke53280,.:poke53281,.:print"[147]";:
  2. 25 print"[145][158]     [154]     [156]     [152]               [129]     [149]      [145][153][157][157][157][157][157][157][157][157]     ";
  3. 26 s=54272:poke54296,15:fori=1to4step.5 :pokes+4,33:poke54276,11:poke54278,242
  4. 27 poke54273,0+abs(2-i)  ::next:pokes+0,21:pokes+4,128
  5. 30 p=p+1:printtab((p)+1)"[146][157][157][157][157][157]     ende[158]         [154]         [156]          ";
  6. 31 pokes+4,16::print"[157][157][157][157][157][157][157][157][157][157][157][157][157]";
  7. 35 ifp>77thenpoke54296,10:print"[147]        e  n  d  e  !                  ";
  8. 40 ifp>91thenpoke54296,0:end
  9. 45 print"[157][157][157][157][157][157][157][157][157][145]"; :goto25
  10.